    VB.NET 2005дʱػ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VB.NET 2005дʱػ     VB.NET 2005дʱػ ڣ2007918 ߣ 鿴:[     С ]       End Sub 

Public Shared Sub Reboot() 
DoExitWin((EWX_FORCE Or EWX_REBOOT)) ' 
End Sub 

Public Shared Sub PowerOff() 
DoExitWin((EWX_FORCE Or EWX_POWEROFF)) 'رռ 
End Sub 

Public Shared Sub LogoOff() 
DoExitWin((EWX_FORCE Or EWX_LOGOFF)) 'ע 
End Sub 

Dim entTime As Object 'ʱ 
Dim xianzaiTime As Object 'ʵʱʱ 
Dim startTime As Object '濪ʼʱʱ 
˫עbutton2ťcode: 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
LogoOff()'ע 
End Sub 
˫ťbutton3code: 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 

Reboot() 

End Sub 
˫رռťbutton1,code: 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
startTime = TimeOfDay 
If Not IsDate(TextBox1.Text) Then 
'IsDataжʱʽ 
MsgBox("Ĳʱʽ,!", , "") 
Else 
entTime = TimeValue(TextBox1.Text) 
End If 
Timer1.Enabled = True 
'ʱ 
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized 
'С 

End Sub 
ͼ3 

 
˫timer1ؼͼ4 

                                       

룺 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
 һҳ   [1]   [2]   [3]   [4]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VB.NET 2005дʱػ £   VB.NET 2005дʱػ  VB.NET 2005дʱػ   
һƪ: ɱ2008԰  
һƪ: SOAеļܹʦɫ  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBʹDirectXļ̳    VBѧ±ܼӴ    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    VB쳬Ի˵    API޸עģ    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB֮·ý    VB̳ ڶ£ؼѧϰ     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       